如何用vb编写"礼花绽放",并写出它的代码

先建立一个图片框，一个时钟控件，Interval属性设为100，代码如下：
Private Sub Form_Click()
Picture1.ScaleMode = 3
Picture1.Scale (-3, 3)-(3, -3)
Picture1.Line (-0.3, -2)-(0.3, -3), , BF
End Sub
Private Sub Timer1_Timer()
Dim i As Single
Picture1.DrawWidth = 2
For i = 0.15 To 3 Step 0.001
Picture1.PSet (i, Log(i)), RGB(255, 0, 1)
Next
For i = 0.15 To 3 Step 0.001
Picture1.PSet (i, Log(i)), Form1.BackColor
Next
For i = -0.15 To -3 Step -0.001
Picture1.PSet (i, Log(-i)), RGB(255, 0, 1)
Next
For i = -0.15 To -3 Step -0.001
Picture1.PSet (i, Log(-i)), Form1.BackColor
Next
For i = -2 To 3 Step 0.001
Picture1.PSet (0, i), RGB(255, 0, 0)
Next i
For i = -2 To 3 Step 0.001
Picture1.PSet (0, i), Form1.BackColor
Next i
End Sub